# plot

vc = function(t){ 4.15*exp(-357*t) + 2.47*cos(628*t + 3.66) }
vs = function(t){ 5*sin(628*t) }

ts = seq(0, 40e-3, len=500)

plot(ts, vs(ts), type='l')
lines(ts, vc(ts), col='green')